home *** CD-ROM | disk | FTP | other *** search
- /*
- ** currentbbs.thor - demonstrates the CURRENTBBS function (new for THOR 1.22)
- **
- ** Will return RC_WARN (5) in rc if there are no current BBS selected.
- ** 0 is returned if there were a BBS open in THOR.
- **
- ** Template:
- **
- ** STEM/A
- **
- ** STEM is the stem variable THOR will but the result into, and it must be
- ** supplied or this command will fail. The stem variable must be in
- ** uppercase.
- ** If the command returned success (0), the <stem>.BBSNAME will contain the
- ** name of the BBS currently in use, and <stem>.CONFNAME will contain the
- ** current conference on that BBS. Note that <stem>.CONFNAME will be empty
- ** ("") if there are no current conference selected.
- **
- */
-
- address "THOR.01"
-
- CURRENTBBS stem CURRENT
-
- if(rc ~= 0) then exit
-
- say CURRENT.BBSNAME
-
- if(CURRENT.CONFNAME ~= "") then
- say CURRENT.CONFNAME
-
- exit
-
-